all = read.table("featureFiles.csv",sep=";",header=T)
all$X=NULL
training = all[sample(all[,1],size=175),]
testing <- subset(all,!(FileName %in% training$FileName))
testing = testing[sample(testing[,1]),]
write.table(training,"training-input.csv",sep=";",quote=F,col.names=F,row.names=F)
write.table(testing,"testing-input.csv",sep=";",quote=F,col.names=F,row.names=F)
write.table(training,"training.csv",sep=";",quote=F,col.names=T,row.names=F)
write.table(testing,"testing.csv",sep=";",quote=F,col.names=T,row.names=F)

